Parse square root sign in embedded Calc mode

* lisp/calc/calc-lang.el (math-read-big-rec): Recognise √ since it may
be used in Big mode.

diff --git a/lisp/calc/calc-lang.el b/lisp/calc/calc-lang.el
index b4b2d4cc4f4beb7893b2a3ca1f34988a831770df..0117f449dd55962c12cc0c91251ea2c9847cd0d4 100644 (file)
--- a/lisp/calc/calc-lang.el
+++ b/lisp/calc/calc-lang.el
@@ -2181,7 +2181,7 @@ order to Calc's."
                   v math-read-big-baseline))
 
            ;; Small radical sign.
-           ((and (= other-char ?V)
+           ((and (memq other-char '(?V ?√))
                  (= (math-read-big-char (1+ math-rb-h1) (1- v)) ?\_))
             (setq h (1+ math-rb-h1))
             (math-read-big-emptyp math-rb-h1 math-rb-v1 h (1- v) nil t)